Bind C-x C-k r to apply-macro-to-region-lines.

diff --git a/lisp/kmacro.el b/lisp/kmacro.el
index 15e7a076d1f5d059b3ab471dcf530ad982fbac2b..b776942e23d0270ac04817140348afcd26b88d90 100644 (file)
--- a/lisp/kmacro.el
+++ b/lisp/kmacro.el
@@ -178,6 +178,7 @@ macro to be executed before appending to it."
     (define-key map "q"    'kbd-macro-query)
     (define-key map "n"    'name-last-kbd-macro)
     (define-key map "e"    'edit-kbd-macro)
+    (define-key map "r"    'apply-macro-to-region-lines)
     map)
   "Keymap for keyboard macro commands.")
 (defalias 'kmacro-keymap kmacro-keymap)